home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / alpharot.xdve < prev    next >
Text File  |  1995-06-21  |  3KB  |  122 lines
  1. /* DISSOLVENZA CON ALPHA IN SENSO ANTIORARIO IN 60 FRAMES*/
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpAlpha = 'T:alpha'
  9. TmpIma = 'T:immagine'
  10. TmpIma2 = 'T:immagine2'
  11. NUMEROFRAME = 0   
  12.  
  13. A = 255
  14. B = 255
  15. C = 255
  16. D = 255
  17.  
  18. GETFILES '"Seleziona la PRIMA immagine"'
  19.  IF RC ~= 0 THEN EXIT
  20.   PRIMA = ADPRO_RESULT
  21.    IF PRIMA = "" THEN EXIT
  22.      LOADER "UNIVERSAL" PRIMA
  23.     XSIZE
  24.      BASE = ADPRO_RESULT
  25.     YSIZE
  26.      ALTZ = ADPRO_RESULT
  27. SAVER "IFF" TmpIma "RAW"
  28.  
  29. GETFILES '"Seleziona la SECONDA immagine"'
  30.  IF RC ~= 0 THEN EXIT
  31.   SECONDA = ADPRO_RESULT
  32.    IF SECONDA = "" THEN EXIT
  33.  LOADER "UNIVERSAL" SECONDA
  34.     XSIZE
  35.      BASE2 = ADPRO_RESULT
  36.     YSIZE
  37.      ALTZ2 = ADPRO_RESULT
  38. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  39.                           ABS_SCALE (BASE) (ALTZ)
  40.                           END
  41. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  42.                           ABS_SCALE (BASE) (ALTZ)
  43.                           END
  44.      SAVER "IFF" TmpIma2 "RAW"   
  45.      
  46. GETfile '"Path e nomebase 60 frames elaborati"'
  47. IF RC ~= 0 THEN EXIT
  48. OUTFILE = ADPRO_RESULT
  49. if OUTFILE = "" then exit 
  50.   
  51.    DO i=1 to 15  /* PRIMA FASE */
  52. LOADER BACKDROP xxx (BASE) (ALTZ) color (A) (A) (A) (B) (B) (B) (C) (C) (C) (D) (D) (D)
  53.  SAVER "IFF" TmpAlpha "RAW"
  54.  
  55. LFORMAT "IFF"
  56. LOAD TmpIma2
  57. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  58. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  59.  
  60.   NUMEROFRAME = (NUMEROFRAME + 1)
  61. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  62.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  63.   SAY "Salvo il frame Num." NUMERO
  64.  A = (A - 17)
  65. END
  66.  
  67.  
  68.    DO i=1 to 15   /* SECONDA FASE */
  69. LOADER BACKDROP xxx (BASE) (ALTZ) color (A) (A) (A) (B) (B) (B) (C) (C) (C) (D) (D) (D)
  70.  SAVER "IFF" TmpAlpha "RAW"
  71.  
  72. LFORMAT "IFF"
  73. LOAD TmpIma2
  74. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  75. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  76.  
  77.   NUMEROFRAME = (NUMEROFRAME + 1)
  78. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  79.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  80.   SAY "Salvo il frame Num." NUMERO
  81.  B = (B - 17)
  82. END
  83.  
  84.  
  85.    DO i=1 to 15   /* TERZA FASE */
  86. LOADER BACKDROP xxx (BASE) (ALTZ) color (A) (A) (A) (B) (B) (B) (C) (C) (C) (D) (D) (D)
  87.  SAVER "IFF" TmpAlpha "RAW"
  88.  
  89. LFORMAT "IFF"
  90. LOAD TmpIma2
  91. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  92. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  93.  
  94.   NUMEROFRAME = (NUMEROFRAME + 1)
  95. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  96.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  97.   SAY "Salvo il frame Num." NUMERO
  98.  D = (D - 17)
  99. END
  100.  
  101.  
  102.    DO i=1 to 15   /* QUARTA FASE */
  103. LOADER BACKDROP xxx (BASE) (ALTZ) color (A) (A) (A) (B) (B) (B) (C) (C) (C) (D) (D) (D)
  104.  SAVER "IFF" TmpAlpha "RAW"
  105.  
  106. LFORMAT "IFF"
  107. LOAD TmpIma2
  108. LOADER "UNIVERSAL" TmpAlpha COMPOFFSET 0 0 ASALPHA
  109. LOAD TmpIma COMPOFFSET 0 0 100 ALPHAMEM
  110.  
  111.   NUMEROFRAME = (NUMEROFRAME + 1)
  112. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  113.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW"
  114.   SAY "Salvo il frame Num." NUMERO
  115.  C = (C - 17)
  116. END
  117.  
  118. ADDRESS COMMAND "Delete >NIL:" TmpIma
  119. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  120. ADDRESS COMMAND "Delete >NIL:" TmpAlpha
  121. EXIT
  122.